home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / A / AAWARDS Folder / AAwards.TSL < prev    next >
Encoding:
Text File  |  1993-02-19  |  6.6 KB  |  245 lines  |  [TEXT/QED1]
  1.     === A Academy Awards survey written for Kirk's BBS
  2.     OPTIONS TERSE
  3.     INITCNT 31
  4.     IFVOTED
  5.         TYPEF/CR
  6.         === Display the tallies
  7.         DEFINE T T 31
  8.         -    Academy Awards Survey
  9.         -   RESULTS TO  DATE
  10.         -   --------------------
  11.         TYPE Number of persons responding to survey:
  12.         TYPECNT/CR  T
  13.         DEFINE A E 1
  14.         -
  15.         -    -------------> BEST PICTURE <------------
  16.         TYPEF/CR  "The Crying Game..........................." CA "  "  %A,T "%"
  17.         TYPEF/CR  "A Few Good Men............................" CB "  "  %B,T "%"
  18.         TYPEF/CR  "Howards End..............................." CC "  "  %C,T "%"
  19.         TYPEF/CR  "Scent of a Woman.........................." CD "  "  %D,T "%"
  20.         TYPEF/CR  "Unforgiven................................" CE "  "  %E,T "%"
  21.         -
  22.         -
  23.         DEFINE A E 6
  24.         -
  25.         -    -------------> BEST ACTOR <------------
  26.         TYPEF/CR  "Robert Downey Jr. Chaplin.................." CA "  "  %A,T "%"
  27.         TYPEF/CR  "Clint Eastwood    Unforgiven..............." CB "  "  %B,T "%"
  28.         TYPEF/CR  "Al Pacino         Scent of a Woman........." CC "  "  %C,T "%"
  29.         TYPEF/CR  "Stephen Rea       The Crying Game.........." CD "  "  %D,T "%"
  30.         TYPEF/CR  "Denzel Washington Malcolm X................" CE "  "  %E,T "%"
  31.         -
  32.         WAITCR  Press carriage return to continue...
  33.         DEFINE A E 11
  34.         -
  35.         -    -------------> BEST ACTRESS <------------
  36.         TYPEF/CR  "Catherine Deneuve  Indochine..............." CA "  "  %A,T "%"
  37.         TYPEF/CR  "Mary McDonnell     Passion Fish............" CB "  "  %B,T "%"
  38.         TYPEF/CR  "Michelle Pfeiffer  Love Field.............." CC "  "  %C,T "%"
  39.         TYPEF/CR  "Susan Sarandon     Lorenzo's Oil..........." CD "  "  %D,T "%"
  40.         TYPEF/CR  "Emma Thompson      Howards End............." CE "  "  %E,T "%"
  41.         -
  42.         DEFINE A E 16
  43.         -
  44.         -    -------------> BEST DIRECTOR <------------
  45.         TYPEF/CR  "Neil Jordan      The Crying Game..........." CA "  "  %A,T "%"
  46.         TYPEF/CR  "James Ivory      Howards End..............." CB "  "  %B,T "%"
  47.         TYPEF/CR  "Robert Altman    The Player................" CC "  "  %C,T "%"
  48.         TYPEF/CR  "Martin Brest     Scent of a Woman.........." CD "  "  %D,T "%"
  49.         TYPEF/CR  "Clint Eastwood   Unforgiven................" CE "  "  %E,T "%"
  50.         -
  51.         WAITCR  Press carriage return to continue...
  52.         DEFINE A E 21
  53.         -
  54.         -    -------------> BEST SUPPORTING ACTOR <------------
  55.         TYPEF/CR  "Jaye Davidson    The Crying Game..........." CA "  "  %A,T "%"
  56.         TYPEF/CR  "Gene Hackman     Unforgiven................" CB "  "  %B,T "%"
  57.         TYPEF/CR  "Jack Nicholson   A Few Good Men............" CC "  "  %C,T "%"
  58.         TYPEF/CR  "Al Pacino        Glen-garry Glen Ross......" CD "  "  %D,T "%"
  59.         TYPEF/CR  "David Paymer     Mr. Saturday Night........" CE "  "  %E,T "%"
  60.         -
  61.         DEFINE A E 26
  62.         -
  63.         -    -------------> BEST SUPPORTING ACTRESS <------------
  64.         TYPEF/CR  "Judy Davis          Husbands and Wives....." CA "  "  %A,T "%"
  65.         TYPEF/CR  "Joan Plowright      Enchanted April........" CB "  "  %B,T "%"
  66.         TYPEF/CR  "Vanessa Redgrave    Howards End............" CC "  "  %C,T "%"
  67.         TYPEF/CR  "Miranda Richardson  Damage................." CD "  "  %D,T "%"
  68.         TYPEF/CR  "Marisa Tomei        My Cousin Vinny........" CE "  "  %E,T "%"
  69.         -
  70.         WAITCR  Press carriage return to continue...
  71.         EXIT
  72.     ELSE
  73.         === DEFINE ALL THE LETTERS FOR THE questions
  74.         - You have not voted yet, enter your responses:
  75.         -
  76.         DEFINE A E 1
  77. $1        -
  78.         -    ------> BEST PICTURE <------
  79.         -    A => The Crying Game
  80.         -    B => A Few Good Men
  81.         -    C => Howards End
  82.         -    D => Scent of a Woman
  83.         -    E => Unforgiven
  84.         -
  85.         INPUT 1 Choose one of the above choices: 
  86.         BRNIL $1
  87.         UPPER
  88.         CASE A B C D E
  89.             GOTO $2
  90.         IS A
  91.             ADDI    1,A
  92.         IS B
  93.             ADDI    1,B
  94.         IS C
  95.             ADDI    1,C
  96.         IS D
  97.             ADDI    1,D
  98.         IS E
  99.             ADDI    1,E
  100.         ENDCASE
  101.         DEFINE A E 6
  102. $2        -
  103.         -    --------------> BEST ACTOR <--------------
  104.         -    A => Robert Downey Jr.  Chaplin
  105.         -    B => Clint Eastwood     Unforgiven
  106.         -    C => Al Pacino          Scent of a Woman
  107.         -    D => Stephen Rea        The Crying Game
  108.         -    E => Denzel Washington  Malcolm X
  109.         -
  110.         INPUT 1 Choose one of the above choices: 
  111.         BRNIL $2
  112.         UPPER
  113.         CASE A B C D E
  114.             GOTO $2
  115.         IS A
  116.             ADDI    1,A
  117.         IS B
  118.             ADDI    1,B
  119.         IS C
  120.             ADDI    1,C
  121.         IS D
  122.             ADDI    1,D
  123.         IS E
  124.             ADDI    1,E
  125.         ENDCASE
  126.         DEFINE A E 11
  127. $3        -
  128.         -    --------------> BEST ACTRESS <--------------
  129.         -    A => Catherine Deneuve  Indochine
  130.         -    B => Mary McDonnell     Passion Fish
  131.         -    C => Michelle Pfeiffer  Love Field
  132.         -    D => Susan Sarandon     Lorenzo's Oil
  133.         -    E => Emma Thompson      Howards End
  134.         -
  135.         INPUT 1 Choose one of the above choices: 
  136.         BRNIL $3
  137.         UPPER
  138.         CASE A B C D E
  139.             GOTO $3
  140.         IS A
  141.             ADDI    1,A
  142.         IS B
  143.             ADDI    1,B
  144.         IS C
  145.             ADDI    1,C
  146.         IS D
  147.             ADDI    1,D
  148.         IS E
  149.             ADDI    1,E
  150.         ENDCASE
  151.         DEFINE A E 16
  152. $4        -
  153.         -    --------------> BEST DIRECTOR <--------------
  154.         -    A => Neil Jordan      The Crying Game
  155.         -    B => James Ivory      Howards End
  156.         -    C => Robert Altman    The Player
  157.         -    D => Martin Brest     Scent of a Woman
  158.         -    E => Clint Eastwood   Unforgiven
  159.         -
  160.         INPUT 1 Choose one of the above choices: 
  161.         BRNIL $4
  162.         UPPER
  163.         CASE A B C D E
  164.             GOTO $4
  165.         IS A
  166.             ADDI    1,A
  167.         IS B
  168.             ADDI    1,B
  169.         IS C
  170.             ADDI    1,C
  171.         IS D
  172.             ADDI    1,D
  173.         IS E
  174.             ADDI    1,E
  175.         ENDCASE
  176.         DEFINE A E 21
  177. $5        -
  178.         -    --------> BEST SUPPORTING ACTOR <--------
  179.         -    A => Jaye Davidson    The Crying Game
  180.         -    B => Gene Hackman     Unforgiven
  181.         -    C => Jack Nicholson   A Few Good Men
  182.         -    D => Al Pacino        Glen-garry Glen Ross
  183.         -    E => David Paymer     Mr. Saturday Night
  184.         -
  185.         INPUT 1 Choose one of the above choices: 
  186.         BRNIL $5
  187.         UPPER
  188.         CASE A B C D E
  189.             GOTO $5
  190.         IS A
  191.             ADDI    1,A
  192.         IS B
  193.             ADDI    1,B
  194.         IS C
  195.             ADDI    1,C
  196.         IS D
  197.             ADDI    1,D
  198.         IS E
  199.             ADDI    1,E
  200.         ENDCASE
  201.         DEFINE A E 26
  202. $6        -
  203.         -    --------> BEST SUPPORTING ACTRESS <--------
  204.         -    A => Judy Davis          Husbands and Wives
  205.         -    B => Joan Plowright      Enchanted April
  206.         -    C => Vanessa Redgrave    Howards End
  207.         -    D => Miranda Richardson  Damage
  208.         -    E => Marisa Tomei        My Cousin Vinny
  209.         -
  210.         INPUT 1 Choose one of the above choices: 
  211.         BRNIL $6
  212.         UPPER
  213.         CASE A B C D E
  214.             GOTO $6
  215.         IS A
  216.             ADDI    1,A
  217.         IS B
  218.             ADDI    1,B
  219.         IS C
  220.             ADDI    1,C
  221.         IS D
  222.             ADDI    1,D
  223.         IS E
  224.             ADDI    1,E
  225.         ENDCASE
  226.         -
  227.         -
  228.         === Keep a total number or responses.
  229.         DEFINE T T 31   ; Define T to be total respondents.
  230.         ADDI    1,T
  231.         -
  232.         IFYES! You only get one vote. Do you want to save these responses? 
  233.             -    Saving your responses, one moment please...
  234.             -    The results of this survey will be displayed if you rerun it.
  235.             SAVEACC
  236.             === NOTE: You may want to change the next line or comment it out it sets a flag
  237.             === Indicating that they took the survey.
  238.             PSETFLG 14
  239.             TALLYVOTE
  240.             EXIT  ; Not really necessary, but included for consistency.
  241.         ELSE
  242.             - Your responses have been discarded so you may vote again at your convenience.
  243.             EXIT
  244.         ENDIF
  245.     ENDIF